home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 36 / Amiga Format CD36 (1999-01-22)(Future Publishing)(GB)[!][issue 1999-02].iso / -seriously_amiga- / misc / guides / devguide / mycheck.rexx < prev    next >
OS/2 REXX Batch file  |  1998-12-07  |  2KB  |  66 lines
  1. /*************************************************
  2.  * myCheck.rexx to split $Check1 and $Check2     *
  3.  * V1.0 © Heiko Schröder 10/98                   *
  4.  *************************************************
  5.  *                                               *
  6.  * 1.0 - erstes Release, um auch Versions mit-   *
  7.  *       einander vergleichen zu können          *
  8.  *************************************************/
  9.  
  10. Parse ARG check1","check2
  11. check2=Delstr(check2,1,1)
  12. address command '"SetEnv" Check2='check2
  13.  
  14. pos1  =lastpos(" ",check1)
  15. check1=Delstr(check1,1,pos1)
  16. address command '"SetEnv" Version='check1
  17. punkt1=lastpos(".",check1)
  18. If punkt1~=0 then check1=Delstr(check1,punkt1,1)
  19. len1=Length(check1)
  20.  
  21. pos2  =lastpos(" ",check2)
  22. check2=Delstr(check2,1,pos2)
  23. punkt2=lastpos(".",check2)
  24. If punkt2~=0 then check2=Delstr(check2,punkt2,1)
  25. len2=Length(check2)
  26.  
  27. /* Kontrolle wenn unterschiedlich lange Ganzzahlen */
  28. Select
  29.    When punkt1>punkt2 then do
  30.       address command '"SetEnv" Checkdev1='1
  31.       address command '"SetEnv" Checkdev2='0
  32.       Exit
  33.    End
  34.    When punkt1<punkt2 then do
  35.       address command '"SetEnv" Checkdev1='0
  36.       address command '"SetEnv" Checkdev2='1
  37.       Exit
  38.    End
  39.    Otherwise NOP
  40. END
  41.  
  42. /* check2 ist ein paar Stellen zu kurz z.B. 4.34 & 4.0 */
  43. If len1>len2 then check2=Insert("0",check2,len2,len1-len2,"0")
  44.  
  45. /* check1 ist ein paar Stellen zu kurz z.B. 5.0 & 4.34 */
  46. If len1<len2 then check1=Insert("0",check1,len1,len2-len1,"0")
  47.  
  48. Select
  49.    /* System ist neuer */
  50.    When check1>check2 then do
  51.       address command '"SetEnv" Checkdev1='1
  52.       address command '"SetEnv" Checkdev2='0
  53.    End
  54.    /* guide ist neuer */
  55.    When check1<check2 then do
  56.       address command '"SetEnv" Checkdev1='0
  57.       address command '"SetEnv" Checkdev2='1
  58.    End
  59.    /* gleich */
  60.    Otherwise do
  61.       address command '"SetEnv" Checkdev1='1
  62.       address command '"SetEnv" Checkdev2='1
  63.    End
  64. End
  65. Exit
  66.